#!/usr/bin/perl




sub guid_compare {
    my ( $a = shift;
	 $b = shift;
	 $i );
    
    for ( $i = 0; $i < 16; $i ++ ) {



    }
    


}
